home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / wb / IconExtras.lha / IconExtras / Rexx / makedefdrawer.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-14  |  321b  |  9 lines
  1. /* Make Pink Drawer */
  2. parse arg filename
  3. address command
  4. filename=strip(filename,'B','"')   /* remove quotes */
  5. filename=strip(filename)           /* remove spaces */
  6. filename=strip(filename,'T','/')   /* Finally, remove trailing slash */
  7. 'copyicon' "env:sys/def_drawer.info" """"filename".info""" /* add quotes */
  8. exit
  9.